clc;
clear;
f=@(x)cos(15*x);
tic,
S=integral(f,0,3*pi/2,'RelTol',1e-20),
toc